home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 2 / 64er_Magazin_Sonderheft_02_86-02_1986_Markt__Technik_de.d64 / relative dateien (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  41 lines
  1. 1680 rem--- unterprogramme zur verwaltung von relativen dateien ----------------
  2. 1690 rem--- (w) 1985 by martin hecht,stgt --------------------------------------
  3. 1700 :
  4. 1710 :
  5. 1720 :
  6. 1730 rem--- oeffnen einer relativen datei --------------------------------------
  7. 1740 :
  8. 1750 rem  lf = logische filenummer
  9. 1760 rem  sa = sekundaeradresse
  10. 1770 rem  dn$= dateiname
  11. 1780 rem  rl = recordlaenge
  12. 1790 :
  13. 1800 open 15,8,15:rem floppy-kommandokanal oeffnen
  14. 1810 open lf,8,sa,dn$+",l,"+chr$(rl):rem datei oeffnen
  15. 1820 :
  16. 1830 return
  17. 1840 :
  18. 1850 :
  19. 1860 :
  20. 1870 rem--- positionieren auf einen record -------------------------------------
  21. 1880 :
  22. 1890 rem  sa = sekundaeradresse
  23. 1900 rem  rn = recordnummer
  24. 1910 rem  rp = position innerhalb des records
  25. 1920 :
  26. 1930 hb=int(rn/256):lb=rn-256*hb:rem recordnummer in low/high aufteilen
  27. 1940 print#15,"p"+chr$(sa)+chr$(lb)+chr$(hb)+chr$(rp)
  28. 1950 :
  29. 1960 return
  30. 1970 :
  31. 1980 :
  32. 1990 :
  33. 2000 rem--- schliessen einer (relativen) datei ---------------------------------
  34. 2010 :
  35. 2020 rem  lf = logische filenummer
  36. 2030 :
  37. 2040 close lf:rem relative datei schliessen
  38. 2050 close 15:rem floppy-fehlerkanal schliessen
  39. 2060 :
  40. 2070 return
  41.